home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / amigatalk / testfiles / TestMenu < prev    next >
Encoding:
Text File  |  2000-05-08  |  1.5 KB  |  60 lines
  1. aScreen <- Screen new: 'TestScreen'
  2. aScreen setScreenModeID: 16r40D20001
  3. aScreen open
  4.  
  5. aWindow <- Window new: 'TestWindow'
  6.  
  7. aWindow setFlags:      16r100F "ACTIVATE + SIZING + DRAG + DEPTH + CLOSE"
  8. aWindow setIDCMPFlags: 16r340  "GADGETUP + MENUPICK + CLOSEWINDOW"
  9.  
  10. aWindow openOnScreen: 'TestScreen'
  11.  
  12. item      <- IText new:  'ITextMI1'
  13. item      setIText:      'Test_MenuItem'
  14. item      setPens:        3 @ 5
  15. item      setITextOrigin: 0 @ 0
  16. item      setDrawMode:    2
  17.  
  18. sub       <- IText new:  'ITextSI1'
  19. sub       setIText:      'Test_SubItem'
  20. sub       setPens:        3 @ 5
  21. sub       setDrawMode:    2
  22. sub       setITextOrigin: 0 @ 0
  23.  
  24. lenitem <- item getTextLength 
  25. lensub  <- sub  getTextLength 
  26.  
  27. menu1     <- Menu new: 'Test_Menu'
  28. menu1     registerTo:  'TestWindow'
  29.  
  30. menuitem <- MenuItem new: 'Item1'
  31. menuitem registerTo: 'TestWindow'
  32.  
  33. subitem   <- SubItem new: 'Sub1'
  34. subitem   registerTo:     'TestWindow'
  35.  
  36. menuitem setCommand:     84 "T"
  37. subitem  setCommand:     83 "S"
  38.  
  39. menu1    setFirstItem:  'Item1'
  40. menuitem setSubItem:    'Sub1'
  41.  
  42. menuitem setFlags: 16r56 "HIGHCOMP + ITEMENABLED + COMMSEQ + ITEMTEXT"
  43. subitem  setFlags: 16r56
  44.  
  45. menuitem setItemFill:   'ITextMI1'
  46. subitem  setItemFill:   'ITextSI1'
  47.  
  48. menuitem setStartPoint:  0 @ 0
  49. menuitem setItemSize:    (lenitem  + 40) @ 12 "COMMWIDTH + 13 == 40"
  50.  
  51. subitem  setStartPoint:  140 @ 10
  52. subitem  setSubSize:     (lensub  + 40) @ 12
  53.  
  54. aWindow  addMenuStrip: 'Test_Menu'
  55.  
  56. rval <- String  new
  57. rval <- aWindow handleIntuition
  58.  
  59. ('HandleIntuition returned ', rval) print
  60.